home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 23 / AMIGAplus Sonderheft 23 (2000)(Falke)(DE)[!].iso / PublicDomain / Anwendungen / MCControl / Install / MCControl.install < prev   
Text File  |  2000-01-01  |  22KB  |  580 lines
  1. ; $VER: MCControl.install 1.27 (03.01.00)
  2. ; Install script for MCControl (Workbench 2.0 or higher)
  3. ;
  4. (COMPLETE 0)
  5. ;(USER 2)
  6. (SET #ApplicationName "MCControl")
  7. (SET #ApplicationDir "sys:tools")
  8. (SET #ApplicationDir1 "sys:utilities")
  9. (SET #ApplicationDir2 "work:tools")
  10. (SET #ApplicationDir3 "tools:")
  11. (SET #ApplicationDir4 "work:utilities")
  12. (SET #ArchiveDir "/")
  13. (SET #Language -1)
  14. (SET #Documents -1)
  15. (SET #ApplicationKeyfile (CAT #ApplicationName ".key"))
  16.  
  17. ;=============================================================================
  18. ; German strings
  19.  
  20. (IF (= @language "deutsch")
  21. (
  22. (SET default_lang 2)
  23.  
  24. (SET #bad-kick "Sie benötigen Workbench 2.0 oder größer")
  25. (SET #bad-installer
  26. (CAT "Achtung! Es ist eine alte Version des Programmes 'Installer' "
  27.      "auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer 42.9.\n\n"
  28.      "Bitte überprüfen Sie Ihre Konfiguration!\n"
  29. ))
  30.  
  31. (SET #App-InstallMsg
  32. (CAT "\n%s Installationsskript.\n\n"
  33.         "Dieses Skript installiert oder deinstalliert\n"
  34.         "%s auf Ihrem Amiga.\n\n"
  35.         "Lesen Sie die Anleitungsdatei für weitere Informationen"
  36.         " über den Vertrieb von %s.\n\n"
  37.         "%s © 1999-2000 Guido Mersmann\n"
  38.         "Alle Rechte reserviert."
  39. ))
  40. (SET #App-MainMode "Wählen Sie den gewüschten Vorgang!")
  41.  
  42. (SET #App-Where
  43. (CAT "Wo möchten Sie %s installieren ?\n"
  44.         "(Ein Verzeichnis wird angelegt)"
  45. ))
  46.  
  47. (SET #App-Update
  48. (CAT "\nEin %s-Verzeichnis existiert im ausgewählen"
  49.         " Verzeichnis.\n\n Wenn Sie fortfahren,"
  50.         " bestätigen Sie, daß Sie die alte %s-Installation"
  51.         " mit der neuesten Version überschreiben wollen.\n\n"
  52.         "Verschiedene %s-Dateien (z.B überflüssige Dateien) werden falls nötig überschrieben!"
  53. ))
  54.  
  55. (SET #App-Main "Welche Version von %s möchten Sie installieren?")
  56. (SET #App-Main-help
  57. (CAT "Die OS2.0+ Version läuft unter allen Systemen ab OS2.0."
  58.      " Die OS2.1+ Version hat den Nutzen, daß sie weniger Resourcen"
  59.      " benutzt, wenn sich %s im Hintergrund befindet. Dazu MUß"
  60.      " die Locale.library eingebunden sein. Für die OS3.0+ gilt das Selbe"
  61.      " wie für die OS2.1 Verison. Es werden OS3.0+ Routinen benutzt, die"
  62.      " weiteren Speicher sparen."
  63. ))
  64.  
  65. (SET #App-Language "Welche Sprachen sollen installiert werden ?")
  66.  
  67. (SET #App-Language-help
  68. (CAT "\nDer Amiga kann in vielen verschiedenen Sprachen"
  69.          " arbeiten. Um Plattenkapazität zu sparen können Sie"
  70.          " nur die Sprachen anwählen, die sie benötigen"
  71.          " Haken Sie also einfach die Sprachen ab, die Sie"
  72.          " Ihrem System zugänglich machen wollen."
  73.           @askoptions-help
  74. ))
  75.  
  76. (SET #App-Docs "Welche Anleitungs- und Informationsdateien wollen Sie installieren ?")
  77.  
  78. (SET #App-Exit "\n\n%s installiert!!\n\nSie finden %s im Verzeichnis \"%s\"")
  79. ;------- DEINSTALL STRINGS
  80. (SET #App-DeinstallWhere "Wo liegt %s auf Ihrer Platte ?\n")
  81. (SET #App-Install "%s Installieren")
  82. (SET #App-DeInstall "%s Deinstallieren")
  83. (SET #bad-DeInstall "Es gibt keine %s Installation an der angegeben Position")
  84. (SET #StartupRemove-prompt "\n\nDie zu %s gehörenden Einträge in der User-startup werden gelöscht!")))
  85. (SET #Deinstall-Done "\n%s ist jetzt deinstalliert!")
  86. ;=============================================================================
  87. ; English strings
  88.  
  89. (IF (<> @language "deutsch")
  90. (
  91. (SET default_lang 4)
  92.  
  93. (SET #bad-kick "You must have at least Workbench 2.0+")
  94. (SET #bad-installer
  95. (CAT "You have an old version of the program 'Installer' "
  96.      "on your Amiga!\n\nThe installation procedure needs at least Installer 42.9.\n\n"
  97.      "Please check your configuration!\n"
  98. ))
  99.  
  100. (SET #App-InstallMsg
  101. (CAT "\n\n%s Installation Script.\n\n"
  102.         "This script installs %s on your Amiga.\n\n"
  103.         "Read the guide file for more information\n"
  104.         " on the distribution of %s.\n\n"
  105.         "%s © 1995-2000 Guido Mersmann\n"
  106.         "All rights reserved."
  107. ))
  108. (SET #App-MainMode "Please choose mode:")
  109.  
  110. (SET #App-Where
  111. (CAT "Where would you like to install %s ?\n"
  112.         "(A drawer will be created)"
  113. ))
  114.  
  115. (SET #App-Update
  116. (CAT "\n\nA %s drawer does already exist in the selected "
  117.         " directory.\n\n By selecting \"Proceed\", you"
  118.         " indicate that you want to update the %s"
  119.         " installation with the most recent version.\n\n"
  120.         "Several %s specific files will be overwritten!"
  121. ))
  122.  
  123. (SET #App-Main "Which %s version should be installed ?")
  124. (SET #App-Main-help
  125. (CAT "The OS2.0+ version should only be used on Systems with OS2."
  126.      " The OS2.1+ and the OS3.0+ version need less Memory. Locale is required!"
  127.      " Special OS3.0+ functions are used to save more memory."
  128. ))
  129.  
  130. (SET #App-Language "Which languages should be installed ?")
  131. (SET #App-Language-help
  132. (CAT "\nThe Amiga can be operated in many different"
  133.           " languages."
  134.           "To reduce the amount of space consumed by the"
  135.           " language files, you can select to have only the"
  136.           " files of specific languages copied.\n\n"
  137.           "Simply check the boxes of the languages you wish"
  138.           " to have available on your system.\n\n"
  139.           @askoptions-help
  140. ))
  141.  
  142. (SET #App-Docs "Which Amiga-guide files should be installed ?")
  143.  
  144. (SET #App-Exit "\n\n%s installed !!\n\n%s can be found in your \"%s\" drawer (or partiton).")
  145. ;--------- DEINSTALLATION STRINGS
  146. (SET #App-DeInstallWhere "Where is the location of %s ?\n")
  147. (SET #App-Install "Install")
  148. (SET #App-DeInstall "Deinstall")
  149. (SET #bad-DeInstall "There is no %s installation at the specified position!")
  150. (SET #StartupRemove-prompt "\nRemove %s lines within your user-startup?")
  151. (SET #Deinstall-Done "\n%s is now deinstalled.")
  152. ;---------
  153. ))
  154. ;----------------------------------------------------------------------------
  155. ;----------------------------------------------------------------------------
  156. ;       P_Requirements
  157. ;----------------------------------------------------------------------------
  158. ;----------------------------------------------------------------------------
  159. (PROCEDURE P_Requirements
  160. ; Workbench 37 or better required
  161. (IF (< (/ (getversion) 65536) 37)
  162. (
  163.   (abort #bad-kick)
  164. )
  165. )
  166. ; Installer 42.9 or better required
  167. (if (< @installer-version 2752521)
  168. (
  169. (abort #bad-installer)
  170. )
  171. ) ;if
  172. ) ;PROCDURE
  173. ;----------------------------------------------------------------------------
  174. ;----------------------------------------------------------------------------
  175. ;       P_DeInstall
  176. ;----------------------------------------------------------------------------
  177. ;----------------------------------------------------------------------------
  178. (PROCEDURE P_DeInstall #InstallerMode
  179.  
  180. (SET #Dummy             (ASKCHOICE
  181.                         (PROMPT #App-MainMode)
  182.                         (HELP @askchoice-help)
  183.                         (CHOICES
  184.                                 (#App-Install #ApplicationName)
  185.                                 (#App-Deinstall #ApplicationName)
  186.                         )
  187.                         ;(DEFAULT #Documents)
  188.                         )
  189. )
  190. ) ;PROCDURE
  191. ;----------------------------------------------------------------------------
  192. ;----------------------------------------------------------------------------
  193. ;       GetApplicationDir
  194. ;----------------------------------------------------------------------------
  195. ;----------------------------------------------------------------------------
  196. (PROCEDURE P_GetApplicationDir
  197. (SET #Dummy #ApplicationDir)
  198. (if (= (exists (TACKON #ApplicationDir1 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir1))
  199. (if (= (exists (TACKON #ApplicationDir2 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir2))
  200. (if (= (exists (TACKON #ApplicationDir3 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir3))
  201. (if (= (exists (TACKON #ApplicationDir4 #ApplicationName) (NOREQ)) 2) (SET #Dummy #ApplicationDir4))
  202.  
  203. (SET #ApplicationDir
  204.         (TACKON
  205.                 (ASKDIR
  206.                         (PROMPT (#App-Where #ApplicationName))
  207.                         (HELP @askdir-help)
  208.                         (default #Dummy)
  209.                 )
  210.                 #ApplicationName
  211.         )
  212. )
  213. (SET @default-dest #ApplicationDir)
  214. ) ;PROCEDURE
  215. ;----------------------------------------------------------------------------
  216. ;-------------------